Определить долю пробелов в заданной строке- QBasic(Бейсик)

CLS: PRINT "Vvedite stroku: ";: INPUT st$
FOR pr% = 1 TO LEN(st$): IF MID$(st$, pr%, 1) = " " THEN ko% = ko% + 1
NEXT: PRINT "Probeli:"; ko%